#!/usr/bin/perl

require './telnet-lib.pl';

my ($act);
&ReadParse();


if(($in{'oper'} ne 'start') && ($in{'oper'} ne 'stop'))
{
	goto EXIT;
}

unless($text{'password'} eq crypt($in{'passwd'} , $text{'password'}))
{
	goto EXIT;
}

&operate_telnetserv($in{'oper'});

EXIT:
&redirect("telnet.cgi");


